Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1428 1804 (N39W62 L=196)   786    108        1 (1382/1766-1476/1830)   0.0 W53-W73 N37-N40
      2  852 1477 (N33W00 L=134)   768    233        2 ( 763/1450- 974/1498) -24.8 E06-W07 N29-N36
      3 1095 1454 (N26W15 L=149)   204     56        0 (1065/1439-1130/1466) -26.6 W13-W17 N25-N27
      4 1846 1393 (N04W71 L=205)   538     49        2 (1820/1369-1871/1414) -23.2 W67-W75 N02-N05
      5 1085 1390 (N23W12 L=146)   305    103        0 (1034/1364-1137/1410)   0.0 W08-W15 N21-N23
      6 1539 1352 (N10W39 L=174)   662    146        0 (1493/1282-1580/1409) -83.7 W37-W40 N04-N13
      7  187 1214 (N31E61 L= 73)  2292    233        2 ( 126/1113- 258/1294) -31.3 E78-E51 N23-N37
      8 1150 1253 (N13W12 L=146)   191    102        0 (1102/1234-1193/1279)   0.0 W09-W15 N12-N13
      9 1911 1145 (S11W69 L=203)  2200    267        5 (1862/1028-1946/1270)  70.3 W63-W75 S18-S03
     10  566 1120 (N18E26 L=109)  1583    417        2 ( 378/1065- 711/1227)   2.2 E40-E14 N15-N21
     11 1807  833 (S27W51 L=185)  1849    287        0 (1729/ 723-1868/ 958)  36.3 W42-W58 S32-S20
     12 1537  779 (S23W26 L=161)   988    238        1 (1481/ 682-1581/ 884)  45.0 W21-W31 S27-S17
     13 1233  716 (S19W05 L=140)   739    388        0 (1157/ 555-1326/ 875)  43.2 E02-W14 S27-S12
     14  392  499 (S15E57 L= 77)  1074    139        3 ( 362/ 446- 426/ 572)  71.6 E61-E54 S18-S09
     15  859  453 (S27E25 L=109)   450     95        0 ( 839/ 403- 883/ 497)  45.0 E27-E21 S30-S24
  

    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