Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  964 1784 (N59W14 L= 48)  1389    298        2 ( 824/1739-1091/1823)   0.0 E02-W31 N56-N60
      2 1352 1534 (N32W33 L= 67)   399    165        0 (1279/1484-1406/1561) -49.4 W28-W35 N27-N34
      3  352 1345 (N34E48 L=346)  3363    489        3 ( 268/1137- 468/1519)  65.4 E53-E39 N21-N45
      4 1177 1458 (N30W18 L= 51)   343    126        0 (1120/1425-1235/1487) -39.8 W14-W21 N27-N32
      5 1808 1361 (N12W65 L= 99)  1151    174        2 (1766/1305-1850/1425) -58.0 W62-W70 N07-N15
      6  178 1226 (N27E68 L=326)  2222    200        4 ( 129/1136- 234/1303) -22.6 E84-E58 N21-N31
      7 1339 1215 (N13W22 L= 56)   248    118        1 (1299/1171-1381/1245)  26.6 W19-W25 N10-N13
      8  531 1199 (N23E30 L=  3)   225    123        0 ( 485/1169- 578/1239) -45.0 E33-E26 N20-N26
      9  815 1140 (N16E11 L= 22)   518    282        2 ( 715/1085- 929/1220) -42.5 E16-E04 N11-N22
     10 1802 1177 (N01W57 L= 91)   490     71        0 (1787/1137-1819/1215) -90.0 W55-W58 S01-N03
     11  416 1001 (N12E40 L=353)   718    137        0 ( 373/ 947- 441/1072) -69.4 E43-E38 N08-N16
     12  375  932 (N08E44 L=349)   257     60        0 ( 357/ 900- 395/ 961) -76.0 E45-E42 N06-N10
     13  343  871 (N05E48 L=346)   307     75        0 ( 326/ 841- 368/ 907) -63.4 E49-E46 N02-N07
     14 1555  822 (S14W31 L= 64)   892    218        0 (1465/ 767-1637/ 875)  13.0 W24-W37 S16-S12
     15 1409  788 (S14W20 L= 54)   209     41        0 (1395/ 768-1427/ 815) -63.4 W19-W21 S15-S11
     16  639  596 (S15E31 L=  2)  1576    482        2 ( 488/ 518- 760/ 709)  -2.9 E41-E21 S19-S08
     17  404  633 (S10E48 L=345)   831    129        2 ( 379/ 572- 441/ 679)  49.4 E51-E43 S14-S07
     18 1544  434 (S42W32 L= 65)   357     51        1 (1517/ 414-1573/ 449)   0.0 W28-W34 S43-S40
     19 1379  340 (S46W17 L= 50)   751     78        2 (1344/ 313-1425/ 370)   0.0 W13-W21 S48-S43
     20 1209  284 (S48W01 L= 34)   434     31        0 (1186/ 263-1235/ 307) -68.2 W00-W02 S49-S44
     21 1162  228 (S52E05 L= 28)  1154     90        4 (1115/ 202-1217/ 259) -26.6 E09-W00 S55-S48
     22 1181  164 (S61E06 L= 27)   681     58        2 (1150/ 148-1208/ 185)  15.9 E09-E02 S65-S58
  

    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