Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1092 1706 (N49W23 L=180)  2048    389        3 ( 914/1667-1272/1740) -12.7 W06-W37 N43-N52
      2 1560 1685 (N35W64 L=221)  1945    208        2 (1457/1635-1647/1720)  -3.4 W48-W82 N33-N37
      3 1036 1578 (N41W12 L=170)   453     75        1 ( 989/1556-1086/1594) -14.0 W08-W16 N39-N42
      4 1180 1552 (N36W22 L=179)   379     61        0 (1150/1528-1218/1572)   9.5 W19-W25 N34-N37
      5 1773 1466 (N17W69 L=226)   776     97        1 (1736/1426-1802/1507) -80.5 W66-W72 N14-N20
      6 1022 1338 (N25W05 L=162)   412    151        0 ( 949/1324-1096/1351)  -5.7 W00-W10 N24-N26
      7 1472 1326 (N16W34 L=192)   725    268        1 (1362/1287-1577/1349) -28.3 W27-W41 N11-N19
      8  200 1084 (N20E62 L= 95)  1289    289        2 ( 181/ 961- 232/1219) -66.4 E67-E58 N12-N28
      9 1216 1163 (N12W14 L=171)   255    113        0 (1172/1119-1248/1194)  26.6 W10-W16 N09-N12
     10 1093 1117 (N11W06 L=163)   476    143        1 (1040/1075-1153/1171) -39.8 W03-W09 N08-N14
     11 1856 1019 (S10W60 L=218)  3764    347       11 (1774/ 921-1918/1162)  75.1 W51-W70 S16-S01
     12 1632 1053 (S03W39 L=197)   299     69        1 (1592/1037-1668/1076) -18.4 W36-W42 S04-S01
     13  533  990 (N11E32 L=126)   523    140        1 ( 504/ 930- 558/1061)  63.4 E34-E29 N07-N15
     14 1209  968 (N00W10 L=167)   411    197        0 (1121/ 953-1305/ 996)  -4.8 W04-W16 S01-N01
     15 1778  932 (S13W51 L=208)   572     88        2 (1751/ 894-1814/ 976)  59.0 W47-W54 S15-S10
     16  655  904 (N04E24 L=133)   259     63        0 ( 631/ 880- 680/ 933) -56.3 E25-E22 N02-N06
     17 1412  862 (S10W21 L=178)   372    113        2 (1386/ 836-1455/ 903)   0.0 W19-W24 S11-S07
     18 1354  821 (S11W17 L=174)   619    202        1 (1329/ 735-1382/ 896)  60.9 W14-W19 S16-S06
     19 1232  800 (S10W09 L=166)   658    163        2 (1187/ 763-1292/ 862) -56.3 W06-W12 S12-S06
     20 1866  782 (S26W63 L=220)  1292    118        3 (1822/ 745-1904/ 838)   8.7 W56-W69 S28-S23
     21  377  568 (S14E54 L=103)  3712    521        6 ( 242/ 403- 487/ 764) -76.5 E61-E46 S25-N00
     22  240  660 (S07E66 L= 91)   964    154        2 ( 207/ 596- 267/ 731)  71.6 E70-E62 S11-S02
     23  503  640 (S10E41 L=117)   753    167        3 ( 454/ 596- 550/ 711) -66.8 E43-E37 S12-S05
     24  420  631 (S10E48 L=110)   864    178        1 ( 377/ 577- 484/ 701) -58.0 E50-E43 S13-S05
     25 1424  554 (S30W19 L=176)   778    140        1 (1376/ 500-1471/ 607)  40.6 W15-W23 S33-S27
     26  617  456 (S23E39 L=119)   776    241        1 ( 572/ 367- 668/ 548)  70.3 E42-E35 S30-S16
     27  583  343 (S32E49 L=109)   399     40        1 ( 560/ 326- 611/ 363)   0.0 E51-E45 S32-S29
     28 1012  251 (S47E19 L=138)   925    184        1 ( 947/ 192-1085/ 316)  25.2 E27-E10 S52-S41
  

    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