Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  595 1708 (N49E43 L=220)   393     70        1 ( 568/1688- 617/1722)  -9.5 E46-E40 N47-N50
      2  409 1268 (N17E43 L=220)   910    137        3 ( 364/1224- 442/1334)  81.9 E47-E40 N14-N21
      3  934 1278 (N19E06 L=257)   255     51        1 ( 902/1259- 963/1294) -14.0 E08-E04 N17-N20
      4 1088 1194 (N14W04 L=267)   585    212        1 (1018/1137-1145/1289)  60.9 W00-W07 N10-N19
      5  917 1196 (N14E07 L=256)   502    202        1 ( 877/1130-1003/1282) -48.4 E09-E01 N09-N19
      6 1862 1244 (N16W66 L=329)   553    105        2 (1844/1220-1884/1267)  36.9 W63-W69 N14-N17
      7 1210 1104 (N08W11 L=275)   800    337        3 (1132/ 970-1258/1242)  69.4 W06-W14 N00-N16
      8  214 1155 (N09E62 L=202)  1400    249        1 ( 173/1067- 236/1240) -51.3 E68-E58 N03-N13
      9  983  862 (S07E02 L=261)   282    102        0 ( 953/ 828-1035/ 881)  14.0 E04-W00 S08-S05
     10 1066  776 (S12W03 L=266)   250     37        1 (1041/ 750-1089/ 801) -33.7 W01-W04 S13-S10
     11 1388  746 (S14W24 L=287)   722    100        2 (1355/ 693-1425/ 797)  63.4 W22-W26 S17-S10
     12  301  706 (S19E53 L=210)  1350    236        5 ( 238/ 627- 350/ 795) -57.5 E58-E49 S24-S13
     13 1099  717 (S16W05 L=268)   214     63        0 (1072/ 689-1127/ 753)  53.1 W03-W06 S17-S13
     14  992  606 (S23E02 L=261)   572    185        1 ( 967/ 520-1015/ 674)  79.7 E03-W00 S29-S18
     15  253  644 (S24E60 L=203)   929    208        3 ( 210/ 617- 298/ 668)   0.0 E65-E55 S25-S22
     16  512  611 (S24E36 L=227)   302    112        0 ( 486/ 580- 541/ 656)  39.8 E38-E32 S26-S21
     17  698  563 (S27E22 L=241)   428    116        0 ( 680/ 513- 724/ 608)  74.1 E23-E19 S30-S23
     18 1262  560 (S26W17 L=280)   690    124        1 (1195/ 536-1306/ 597)  23.2 W12-W20 S28-S23
     19 1051  487 (S32W03 L=266)   275     46        0 (1029/ 461-1072/ 515)  63.4 W01-W04 S33-S29
     20  398  431 (S39E53 L=210)   598    115        1 ( 380/ 403- 417/ 466)  50.2 E56-E50 S41-S35
  

    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