Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1433 1642 (N31W50 L=347)   676    138        0 (1378/1603-1485/1688) -82.9 W47-W51 N27-N35
      2 1639 1600 (N22W65 L=  2)  1089    184        3 (1569/1579-1720/1630) -26.6 W58-W73 N18-N26
      3  712 1595 (N51E07 L=290)   275     39        0 ( 699/1563- 728/1622)  53.1 E09-E05 N48-N52
      4 1043 1524 (N36W16 L=313)   515    114        2 ( 983/1494-1100/1541) -14.0 W11-W19 N34-N38
      5 1486 1447 (N19W41 L=339)   851    157        2 (1414/1412-1543/1476) -16.7 W36-W46 N15-N22
      6 1211 1351 (N21W20 L=317)   267     89        1 (1196/1301-1222/1390)  51.3 W17-W21 N18-N23
      7  549 1117 (N23E28 L=270)   944    332        2 ( 401/1076- 699/1148) -20.9 E39-E17 N18-N27
      8 1735 1087 (S08W47 L=345)   630    113        1 (1708/1034-1762/1143)  45.0 W44-W51 S10-S05
      9  375 1023 (N20E43 L=254)   838    148        2 ( 325/ 973- 410/1096)  81.9 E48-E40 N17-N24
     10  993 1067 (N10E01 L=297)   196     46        0 ( 967/1052-1028/1079)   0.0 E02-W01 N09-N11
     11  165 1004 (N22E68 L=230)  1004    119        1 ( 132/ 955- 201/1048) -33.7 E73-E62 N18-N24
     12  808  978 (N09E14 L=284)   246     82        0 ( 762/ 962- 841/ 999) -11.3 E16-E11 N08-N10
     13 1839  945 (S20W55 L=353)  1025    182        0 (1772/ 909-1884/ 987) -21.0 W48-W61 S22-S16
     14 1287  924 (S05W13 L=310)   298     82        0 (1252/ 896-1317/ 952) -63.4 W11-W14 S06-S02
     15  431  889 (N11E41 L=257)   403    130        0 ( 363/ 865- 489/ 906) -16.7 E46-E36 N09-N13
     16 1684  834 (S21W38 L=336)   276     65        1 (1660/ 813-1707/ 865)  21.8 W35-W40 S22-S19
     17 1345  637 (S24W10 L=308)  1199    336        3 (1258/ 524-1447/ 777)  32.9 W02-W19 S29-S17
     18 1552  532 (S38W24 L=322)   369     76        0 (1540/ 490-1564/ 570)  71.6 W23-W25 S40-S34
     19  753  483 (S19E31 L=267)   282     68        0 ( 729/ 453- 773/ 528)  80.5 E31-E29 S21-S15
     20  733  407 (S24E36 L=262)   285     88        0 ( 686/ 387- 775/ 425)   0.0 E39-E32 S24-S23
     21 1141  289 (S44E14 L=283)  3283    387       10 ( 989/ 163-1235/ 424)  29.4 E35-E03 S52-S34
     22  953  161 (S50E41 L=257)   597     70        0 ( 922/ 146- 989/ 180)  -8.1 E44-E36 S52-S47
  

    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