Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  383 1567 (N46E57 L=287)   514     35        0 ( 362/1543- 401/1589) -18.4 E62-E53 N44-N47
      2  664 1377 (N31E22 L=322)  1176    371        2 ( 532/1248- 790/1449) -36.9 E33-E12 N21-N36
      3  191 1292 (N27E70 L=274)   539     64        2 ( 166/1267- 217/1313) -15.3 E76-E64 N25-N28
      4  245 1195 (N21E58 L=286)   555    140        0 ( 206/1138- 267/1256)  69.4 E62-E56 N17-N25
      5  715 1169 (N17E18 L=326)   210     77        0 ( 692/1136- 743/1198)  45.0 E19-E16 N15-N18
      6 1660 1137 (N05W44 L= 28)   766    170        2 (1599/1085-1729/1193)  18.4 W38-W50 N02-N06
      7 1839 1045 (S04W60 L= 44)   690    114        1 (1821/ 990-1854/1100)  81.9 W57-W61 S07-N00
      8  814  910 (N00E14 L=330)   354    190        1 ( 757/ 847- 877/ 975) -49.4 E17-E10 S03-N04
      9 1814  903 (S12W56 L= 40)   400     67        0 (1783/ 872-1842/ 933)  15.9 W52-W59 S13-S10
     10 1487  730 (S18W27 L= 11)   444    119        1 (1472/ 678-1502/ 793) -82.9 W26-W28 S21-S13
     11  338  761 (S06E51 L=293)   388     60        1 ( 313/ 730- 363/ 785) -56.3 E52-E47 S07-S04
     12  720  712 (S11E22 L=322)   497    156        2 ( 689/ 642- 749/ 767)  69.4 E24-E20 S15-S07
     13  284  596 (S16E63 L=281)  2155    293        4 ( 251/ 465- 330/ 695)  67.6 E70-E55 S26-S09
     14 1537  571 (S30W32 L= 16)  1655    348        2 (1427/ 490-1684/ 686)  21.8 W23-W44 S34-S24
     15 1826  658 (S29W64 L= 48)   574     28        1 (1799/ 639-1849/ 678) -10.3 W58-W69 S31-S27
     16 1173  584 (S24W05 L=349)   583    150        0 (1135/ 525-1226/ 649)  49.4 W02-W09 S27-S19
     17 1595  494 (S37W40 L= 24)  1294    278        3 (1480/ 457-1701/ 569)  10.8 W28-W50 S39-S33
     18 1208  322 (S45W06 L=350)  1749    256        3 (1134/ 241-1297/ 404)  35.5 E01-W13 S52-S38
     19 1135  372 (S39W00 L=344)   368     64        0 (1093/ 355-1169/ 386) -11.3 E02-W03 S40-S37
     20  612  292 (S41E48 L=296)  1017    114        1 ( 579/ 244- 651/ 340)  26.6 E58-E40 S45-S36
  

    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