Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  914 1739 (N49E22 L=293)   517     94        1 ( 865/1717- 955/1761)  39.8 E25-E18 N46-N51
      2 1654 1319 (N26W43 L=358)  2925    488        6 (1542/1150-1746/1453)  41.2 W32-W57 N14-N35
      3  545 1414 (N20E38 L=277)   326     99        1 ( 506/1382- 582/1452) -23.2 E41-E34 N18-N22
      4  503 1092 (S00E34 L=280)   446    125        2 ( 447/1074- 557/1110)   7.1 E38-E30 S01-N00
      5  479  927 (S11E35 L=280)   295    104        1 ( 460/ 895- 519/ 951)  45.0 E36-E31 S12-S08
      6  502  821 (S17E33 L=282)   283    130        1 ( 450/ 803- 544/ 848)  -8.1 E36-E29 S17-S15
      7 1190  731 (S15W14 L=328)   573    220        1 (1161/ 652-1231/ 823) -68.2 W11-W17 S19-S09
      8  536  693 (S25E30 L=284)   354     85        1 ( 512/ 647- 553/ 729)  78.7 E32-E28 S27-S22
      9 1707  642 (S16W55 L= 10)   441     62        2 (1677/ 619-1729/ 667)  45.0 W52-W58 S17-S13
     10  402  614 (S32E44 L=271)   590    115        1 ( 351/ 595- 457/ 646) -11.3 E49-E38 S33-S30
     11  949  543 (S30W00 L=315)   220    119        0 ( 909/ 523- 996/ 573)  31.0 E02-W03 S31-S27
     12 1219  403 (S37W24 L=338)   537     81        2 (1178/ 380-1256/ 430)   9.5 W20-W26 S39-S35
     13 1167  232 (S53W29 L=344)  1482    166        3 (1112/ 176-1211/ 302) -81.3 W24-W34 S60-S46
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y