Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1278 1823 (N45W51 L=325)  1392    154        2 (1223/1766-1333/1884)  11.8 W41-W66 N41-N47
      2 1148 1773 (N45W36 L=309)   545     62        1 (1123/1737-1180/1797)  18.4 W30-W39 N43-N47
      3 1499 1409 (N14W39 L=312)  1162    281        1 (1393/1346-1620/1483) -52.4 W34-W44 N07-N20
      4  300 1464 (N47E51 L=222)   540     64        0 ( 269/1442- 343/1478)   0.0 E56-E44 N45-N48
      5  603 1306 (N29E20 L=254)  1604    384        5 ( 422/1256- 773/1338) -27.5 E34-E09 N22-N35
      6  998 1239 (N16W03 L=277)   577    273        1 ( 910/1181-1122/1299)   8.1 E02-W12 N14-N17
      7  735  989 (N08E17 L=257)  1518    597        2 ( 504/ 878- 968/1053)  -5.7 E33-E03 N03-N11
      8 1451  963 (S10W23 L=297)   476    136        0 (1417/ 906-1487/1028) -82.9 W21-W24 S13-S05
      9  426 1000 (N15E37 L=236)   285     61        1 ( 396/ 980- 459/1020) -21.8 E39-E34 N13-N16
     10 1658  953 (S16W37 L=311)   303     53        0 (1639/ 926-1679/ 983)  56.3 W35-W39 S17-S14
     11  261  714 (N02E59 L=215)   714     73        3 ( 232/ 678- 293/ 750)  26.6 E62-E54 N00-N03
     12  651  648 (S10E31 L=243)   443    108        3 ( 610/ 595- 683/ 695) -90.0 E32-E28 S12-S06
     13  595  640 (S09E35 L=239)   241     61        0 ( 568/ 613- 615/ 665) -90.0 E36-E33 S10-S07
     14 1802  556 (S47W57 L=331)   616     41        1 (1774/ 539-1827/ 581) -17.1 W51-W64 S49-S44
     15  571  521 (S15E41 L=233)   326     87        1 ( 552/ 484- 594/ 556)  45.0 E42-E38 S17-S13
     16 1343  526 (S34W08 L=282)   412     62        1 (1314/ 501-1381/ 548)  11.3 W05-W10 S35-S31
     17  364  438 (S17E65 L=209)   988     70        7 ( 327/ 411- 396/ 470) -45.0 E70-E60 S18-S14
     18  780  358 (S30E35 L=239)  1125    213        3 ( 689/ 304- 839/ 433)  13.2 E44-E27 S34-S26
     19  776  173 (S45E53 L=220)  1506    136        0 ( 724/ 133- 812/ 225)  14.0 E64-E44 S48-S40
  

    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