Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  708 1640 (N51E03 L=147)   261     30        1 ( 691/1617- 722/1665)  76.0 E04-E01 N49-N53
      2 1010 1556 (N36W15 L=165)   458    158        0 ( 935/1526-1084/1581)  -9.5 W09-W21 N34-N36
      3  233 1355 (N44E57 L= 92)   485     58        0 ( 211/1330- 258/1378) -24.0 E61-E52 N41-N45
      4 1701 1195 (S04W46 L=195)   319     78        1 (1672/1153-1718/1235)  63.4 W43-W48 S06-S02
      5 1854 1135 (S12W58 L=208)   430     74        2 (1835/1101-1885/1163)  14.0 W55-W63 S13-S10
      6 1394 1084 (S01W22 L=172)   674    116        2 (1323/1057-1456/1112) -14.0 W17-W25 S02-N00
      7  141  939 (N20E68 L= 82)  2639    200        8 (  78/ 876- 204/1037) -25.5 E82-E59 N15-N25
      8  680  873 (N05E23 L=126)   192     85        0 ( 634/ 858- 718/ 898)   0.0 E26-E20 N04-N06
      9 1507  788 (S21W22 L=172)   450    142        1 (1481/ 731-1521/ 870)  63.4 W19-W24 S24-S16
     10 1658  785 (S26W33 L=183)   500     93        1 (1613/ 761-1695/ 813)   0.0 W29-W36 S27-S23
     11  310  725 (N05E54 L= 96)   543    117        0 ( 274/ 680- 329/ 788)  36.9 E58-E50 N02-N08
     12 1241  730 (S17W05 L=154)   265    124        1 (1188/ 689-1282/ 768) -56.3 W02-W06 S19-S13
     13 1044  638 (S17E09 L=141)   560    257        2 ( 988/ 570-1074/ 737)  52.1 E14-E05 S19-S10
     14 1178  696 (S17W00 L=150)   359    133        2 (1132/ 660-1218/ 735) -71.6 E02-W02 S19-S13
     15  967  618 (S16E14 L=136)   209    101        0 ( 934/ 588- 986/ 667)  31.0 E16-E11 S17-S13
     16 1374  607 (S28W10 L=159)   606    129        2 (1313/ 574-1437/ 649)  -6.3 W05-W14 S29-S26
     17  563  558 (S10E40 L=109)  1701    459        3 ( 437/ 470- 725/ 621) -38.7 E52-E32 S18-S05
     18  825  521 (S18E25 L=124)   299     99        0 ( 799/ 484- 867/ 564)  23.2 E28-E21 S20-S16
     19  346  434 (S13E67 L= 82)  1287    132        2 ( 327/ 374- 364/ 501)  26.6 E80-E61 S17-S08
     20 1183  353 (S40E11 L=139)  1545    373        3 (1057/ 257-1274/ 482)  19.2 E23-W00 S44-S32
     21  970  435 (S27E20 L=129)   283     59        2 ( 946/ 400- 989/ 459)  36.9 E22-E18 S29-S25
     22 1345  313 (S49E01 L=149)   506     65        0 (1312/ 285-1384/ 343)   9.5 E03-W03 S51-S47
     23  766  185 (S40E53 L= 97)  1105     88        2 ( 748/ 130- 791/ 231)  22.8 E65-E46 S44-S36
     24  977  171 (S48E38 L=111)  3143    296        8 ( 853/ 110-1114/ 225) -42.9 E51-E26 S54-S39
  

    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