Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  929 1869 (N71W05 L=152)   578     56        1 ( 913/1841- 954/1897)  45.0 W01-W09 N67-N76
      2 1581 1561 (N33W53 L=201)   463     89        0 (1538/1543-1623/1576)  -6.3 W48-W57 N31-N33
      3 1119 1531 (N37W13 L=160)   375     95        0 (1071/1502-1158/1558)  20.6 W08-W16 N35-N38
      4 1191 1518 (N35W18 L=166)   349     69        1 (1174/1484-1208/1553)  68.2 W16-W19 N32-N37
      5 1550 1475 (N28W45 L=193)   799    178        0 (1512/1386-1582/1543)  74.7 W43-W46 N21-N32
      6 1697 1474 (N25W60 L=207)   750    126        2 (1658/1420-1726/1525)  21.0 W52-W65 N22-N27
      7  794 1361 (N28E13 L=135)   577    190        3 ( 760/1281- 847/1435) -74.7 E15-E09 N22-N33
      8  393 1280 (N25E45 L=103)  2669    445        6 ( 278/1156- 563/1337)   6.6 E55-E29 N17-N29
      9 1258 1263 (N18W17 L=165)   411    125        1 (1220/1223-1306/1305) -26.6 W14-W20 N15-N20
     10  145 1198 (N20E76 L= 72)   824    107        2 ( 129/1154- 166/1252)  90.0 E79-E72 N17-N23
     11  388 1069 (N12E43 L=104)   641    112        1 ( 346/1025- 431/1109) -32.0 E47-E39 N09-N14
     12  493 1003 (N08E35 L=113)   312     57        1 ( 472/ 975- 527/1030)  14.0 E36-E32 N06-N09
     13 1747  857 (S13W50 L=197)   531     46        0 (1720/ 829-1770/ 884)  90.0 W47-W52 S14-S11
     14  676  795 (S06E24 L=124)   306    118        0 ( 622/ 756- 714/ 814) -26.6 E27-E21 S08-S04
     15  246  732 (S09E62 L= 86)   744     82        1 ( 230/ 690- 274/ 776)  50.2 E64-E58 S11-S05
     16  427  422 (S31E58 L= 90)   501     77        0 ( 412/ 383- 447/ 466)  50.2 E60-E54 S33-S27
     17  847  400 (S35E20 L=128)   405    110        1 ( 791/ 386- 902/ 415) -14.0 E24-E15 S35-S32
     18 1241  249 (S54W11 L=159)   453     50        0 (1216/ 233-1271/ 270) -26.6 W08-W14 S56-S51
     19  951  185 (S57E22 L=126)   451     66        0 ( 914/ 172- 983/ 199)  -7.1 E25-E17 S59-S55
  

    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